home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
cnet
/
cnettoolkit2a.lha
/
Routines
/
SELFILE
< prev
next >
Wrap
Text File
|
1994-12-13
|
517b
|
9 lines
SELFILE: procedure;arg np,bco,fco,ki
getuser 1209644;nu=result;getuser 2407246;if nu=result then return 0
pa=left(np,max(lastpos(':',np),lastpos('/',np)))
na=substr(np,length(pa)+1);si=word(statef(np),2)
sh=x2c(d2x(si,8))left(na,32,'00'x)left(pa,96,'00'x)copies('00'x,7)x2c(d2x(ki,2))x2c(d2x(si*bco%100,8))x2c(d2x(fco,4))copies('00'x,6)copies('FF'x,4)
getcarrier;if result~='TRUE' then exit;getuser 1401978
call export(x2c(d2x(result+nu*156,8)),sh)
setobject nu+1;putuser 1209644;return 1